home *** CD-ROM | disk | FTP | other *** search
/ Armageddon - Interactive Preview / Interactive Preview: Armageddon.iso / pc / control.dxr / Scripts & Behaviors_18_Plunger Button.ls < prev    next >
Encoding:
Text File  |  1998-05-19  |  880 b   |  36 lines
  1. global gMonitorObj, gBioValue
  2.  
  3. on mouseEnter me
  4.   set the member of sprite the currentSpriteNum to "Plunger Hilite"
  5. end
  6.  
  7. on mouseLeave me
  8.   set the member of sprite the currentSpriteNum to "Plunger Out"
  9. end
  10.  
  11. on mouseDown me
  12.   puppetSound(3, "Button Sound")
  13.   set the member of sprite the currentSpriteNum to "Plunger In"
  14. end
  15.  
  16. on mouseUp me
  17.   ResetMonitors(gMonitorObj)
  18.   set the visible of sprite 24 to 1
  19.   updateStage()
  20.   set gBioValue to 0
  21.   set the member of sprite the currentSpriteNum to "Plunger Hilite"
  22.   set the blend of sprite 24 to 0
  23.   set the ink of sprite 24 to 36
  24.   set the foreColor of sprite 24 to 225
  25.   updateStage()
  26.   set the member of sprite 24 to "Are You Sure"
  27.   set x to 0
  28.   repeat while x < 100
  29.     set the blend of sprite 24 to x
  30.     updateStage()
  31.     set x to x + 10
  32.   end repeat
  33.   set the visible of sprite 75 to 1
  34.   set the visible of sprite 76 to 1
  35. end
  36.